10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 PRINTCHR$(14)CHR$(8)CHR$(147):POKE53280,0:POKE53281,0
30 PRINTTAB(12)"[195]OPYRIGHT 1988":PRINTTAB(7)"[195][207][205][208][213][212][197]! [208]UBLICATIONS, [201]NC."
40 PRINTTAB(10)"[193]LL [210]IGHTS [210]ESERVED":FORI=1TO1000:NEXT
50 FORI=49152TO49333:READA:POKEI,A:X=X+A:NEXT
60 IFX<>27127THENPRINT"[197]RROR IN DATA STATEMENTS.":STOP
70 PRINT"[147][158]";TAB(12);"[196]IGI-[211]OUND 64 "
80 PRINT"[158] 1 [146] [210]ECORD":PRINT"[158] 2 [146] [208]LAYBACK"
90 PRINT"[158] 3 [146] [211]AVE [211]AMPLE TO [196]ISK"
100 PRINT"[158] 4 [146] [204]OAD [211]AMPLE FROM [196]ISK"
110 PRINT"[158] 5 [146] [211]AMPLE [195]ONTINUOUSLY FROM [212]APE":PRINT"[158] 6 [146] [209]UIT"
120 PRINTTAB(13)"[197]NTER (1-6)"
130 GETA$:IFA$=""THEN130
140 A=VAL(A$):ONAGOSUB150,180,190,230,260,320:GOTO70
150 PRINT"[158]     [208]RESS [208]LAY ON [217]OUR [196]ATASETTE."
160 IFPEEK(1)=55THEN160
170 SYS49223:RETURN
180 SYS49152:RETURN
190 GOSUB330
200 POKE187,PEEK(71):POKE188,PEEK(72):P=PEEK(187)+256*PEEK(188):POKE183,PEEK(P)
210 POKE187,PEEK(P+1):POKE188,PEEK(P+2):POKE251,0:POKE252,16:POKE185,1
220 POKE186,D:POKE780,251:POKE781,69:POKE782,192:SYS65496:RETURN
230 GOSUB330
240 LOADF$,D,1
250 RETURN
260 PRINT"[158][206]OTE:[146] [217]OU MUST RE-RUN THE PROGRAM WHEN "
270 PRINT"FINISHED. [208]RESS PLAY ON [196]ATASETTE WHEN"
280 PRINT "READY OR PRESS ANY KEY TO CANCEL."
290 GETA$:IFA$<>""THEN70
300 IFPEEK(1)=119THEN290
310 SYS49296
320 PRINTCHR$(9):POKE53280,14:POKE53281,6:PRINT"[154][147]":END
330 INPUT"[158][197]NTER [196]EVICE [206]UMBER: ";D
340 INPUT"[158][197]NTER [198]ILENAME: ";F$:F$=LEFT$(F$,14):RETURN
350 DATA 169,11,141,17,208,234,234,234,120,160,0,169,16,132,63,133,64,234,177
360 DATA 63,170,202,234,234,234,224,0,208,248,201,0,240,15,169,15,141,24,212
370 DATA 234,234,234,234,234,169,0,141,24,212,200,208,223,230,64,165,64,201
380 DATA 160,144,215,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17
390 DATA 208,234,234,234,120,160,0,169,16,132,63,133,64,234,173,13,220,201,16
400 DATA 208,19,138,145,63,162,0,200,208,241,230,64,165,64,201,160,144,233,76
410 DATA 132,192,232,208,227,138,145,63,200,208,221,230,64,165,64,201,160,144
420 DATA 213,88,169,27,141,17,208,234,234,234,96,234,234,169,11,141,17,208,234
430 DATA 234,234,120,173,13,220,197,236,240,249,201,16,208,10,169,15,141
440 DATA 24,212,133,236,76,153,192,169,0,141,24,212,76,169,192,200